home *** CD-ROM | disk | FTP | other *** search
/ Language/OS - Multiplatform Resource Library / LANGUAGE OS.iso / a_utils / ffccflow / ffccflow.lha / ffccc+flow / flow / iniarr.for < prev    next >
Text File  |  1992-07-31  |  357b  |  17 lines
  1.       SUBROUTINE INIARR
  2. C! Initialise arrays
  3.       INCLUDE 'params.h'
  4.       INCLUDE 'tables.h'
  5. C
  6.       NPROC = 0
  7.       NCOMM = 0
  8.       DO 5 IP=1,MAXPRO
  9.          PROCED_DONE(IP) = .FALSE.
  10.          PROCED_EXTERN(IP) = .FALSE.
  11.          PROCED_LEVEL(IP) = 0
  12.          DO 6 IC=1,MAXCOM
  13.             COMMON_USED(IP,IC) = ' '
  14.    6  CONTINUE
  15.    5  CONTINUE
  16.       END
  17.